Skip to main content

Full text of "SIN (Sinclair Informations Nouvelles)"

See other formats


fe adeaziAe ÉHÉPECE IS 
gas erding tours EINEL BLP 


lletobre 1356 Fe. ele 


Rédacteur: Réal Gagnon 390 Bl. Central Nord Duberger P.Q. 61P 3P9 
Collaboration: Simon Rioux, Yves Gagnon 
Ce bulletin est conçu avec l'aide du traitement de texte QUILL 
(PSION) at de TASPRINT QL (TASMAN SOFTWARE). L'impression se fait 
sur 
une imprimante NX-10 de STAR . 


Es 
INFOS : Sinclair News 
Entre deux octets 


PROG : Enregistrement numerique 


(2468) 
PROG : Definition de WINDOW 

CQL) 
PROG > Micre-lusique (PAGE à 
QL : Connection a un MODEN 


268 : Animation en Langage Machine 


Avec l'automne qui arrive, l'avenir des ordinateurs SINCLAIR se 
précise, Le SPECTRUM est plus en forme que janais avec l'arrivée 
du SPECTRUM +2. Le QL quant à lui attend son heure, soit de 
renaissance ou de mort, Mais je pense que l'on peut être 
optiniste à son sujet car les pourparlers se poursuivent pour la 
faire renaitre de ses cendres encore toute chaudes... 


C SINCLAIR NEWS | 
SUM N'EST PLUS... 


Le magazine SUM a cessé de paraître, Un arrangement avec le 
aagazine TINE DESTGNS offre cependant aux abonnés de SUM de 
poursuivre leur abonnement avec TIME DESIGNS. I] est à noter 
qu'avec le retrait de SUM, TIME DESIGNS devient le plus gros 
magazine anéricain dédié aux ordinateurs SINCLAIR. 


TIME DESIGNS MAGAZINE parait à tout les 2 sois (comme SIN...) et 
contient environ 36 pages. L'abonnement coute $15.00 US, 


TIME DESIGNS MAGAZINE, 29722 Hult Rd. , Colton, OREGON 97017 USA 


JOYSTICK COMPATIBLE KEMPSTON... 


Dans un nunéro précédent de SIN nous avions parlé que les 
interfaces JOYSTICKS du SPECTRUM pouvez fonctionner sur le 2068, 
Ce qu'il y a d'important de vérifier c'est si l'interface à un 
connecteur conne le ZX8i (46 pins) ou un connecteur comme le 
SPECTRUM (56 pins), Il faut en prendre un avec le connecteur 
comme le 7X81. CHEETAH et DATEL en manufacture un. Voila le 
message est lancée! 


SINC-LINK... 


Le TORONTO TIMEX-SINCLAIR USER CLUB produit à chaque 2 aois un 
NEWSLETTER appelé SINC-LINK. 11 contient des articles pour le 
1X81, le 2068 et le QL. Le cout de l'abonnenent est de $20.00 par 
année (6 nos). 


TSU6 P.O. Box 7274 Stn. A , TORONTO, ONTARIO, MSW 1X9 


= E E E 


NOUVEAU MARCHAND QL... 


Un nouveau commerce a fait apparition pour le QL. Il s'agit de 
MARKEL ENTERPRISES P.0. Box 2392, Secaucus, NJ 07094-0992 USA 
tél. 718-627-1293 


COMPILATEUR BASIC 2068... 


NOVELSOFT annonce la sortie d'un compilateur BASIC pour le 2068, 
TIMACHINE compilerait toutes les commandes BASIC ( sauf les 
commandes 1/0 comme SAVE... ) en langage machine et accepte les 
calculs en virgule flottante (comme SIN,COS...). Sur la néme 
cassette, il y a une version pour le 2068 et une autre pour le 
SPECTRUM. TIMACHINE se vend $19.99 US plus $3.00 pour les frais 
de poste. 


NOVELSOFT, 106 7th STREET, TORONTO, CANADA MOV 3B4 


LES MICRODRIVES... 


Lors du rachat de SINCLAIR par AMSTRAD, M. Alain Sucre a 
clairement indiqué son intention d'abandonner les aicrodrives. 
Pour nous heureux propriétaires de QL, cette nouvelle était à 
prime abord une catastrophe car les microdrives sont essentiels 
pour la sauvegarde ou le chargement de programme a moins de 
possèder un interface et lecteur de disquette, 


Mais voila que lorsque CLIVE a vendu les droits sur ses 
ordinateurs, les droits de manufacturer les microdrives ne 
faisait nullement partie de la vente, Un attente s'est 
heureusement conclu avec SINCLAIR et ABLEX, le manufacturier des 
microdrives pour poursuivre la production de celles-çi, Selon 
ABLEX il se vend entre 50 et 60000 cartouches par mois et la 
demande ne cesse d'augmenter! 


NOUVEAU SPECTRUM... 


Le nouveau SPECTRUM tel que promis par AMSTRAD est maintenant 
disponible sur le marché anglais, Appelé SPECTRUM +2, le +2 
possède les memes caractéristiques que le SPECTRUM + 128K. Sauf 
que le clavier a était changé pour faire place à un clavier digne 
de ce nos, le magnétophone est maintenant intégré à l'ordinateur 
sur le coté droit, Deux prise JOYSTICK font leur apparition aais 
il ne réponde à aucun standard, 


Dans le SINIO, nous avons vu comment il était possible de créer 
des effets d'animation en SINCLAIR BASIC. Comme promis, nous 
allons voir maintenant comment il est possible d'obtenir le mêne 
effet via le langage machine. 


Si nous prenons le programme BASIC : 10 PRINT "#"; 

20 PRINT CHR§(8); 

30 PRINT " "3 

40 60 TD 10 
la première ligne affiche notre étoile, la deuxième ramène le 
curseur à gauche et la dernière efface l'étoile. Puis on PRINT 
notre étoile à la position suivante et on recommence avec le même 


principe. 


En langage machine, la façon la plus simple d'écrire à l'écran 
est d'utiliser l'instruction RST 16 (voir SIN#4), En sachant 
cela, la conversion BASIC-YLANGAGE MACHINE est très siaple. 


ORG 50000 
loop LD A,"* 
RST 16 PRINT "#" 
LD A,8 
RST 16 PRINT CHR$ (8) 
LD A, 32 
RST 16 PRINT" " 
JR loop +60 TO loop 


Si vous avez un ASSEMBLEUR et que vous tapez et essayez Ce 
programme vous découvrez quê les étoiles s'affiche dans le bas de 
l'écran car nous n'avons pas initialise celui-ci, Pour ce faire 
nous pouvons mettre à zéro la bit 0 de la variable système TVFLAG 


(23612). 


Un autre problème est la rapidité à laquelle l'animation se 
déroule. Si le BASIC est souvent trop lent, le langage machine 
est lui trop rapide! Donc il serait bon d'introduire un boucle de 
délai pour ralentir le déroulement de l'action. 


Dernier problène (et non le aoindre), il est inpossible de faire 
BREAK pour arrêter le déroulement d'un programme machine à soins 
que le programmeur en offre la possibilité, Lors du développenent 
d'un programme, une bonne idée est d'insérer un appel à la 
routine de BREAK de la ROM du 2068, comme Ça il n'est plus 
nécessaire de faire un RESET de la machine pour corriger une 


petite erreur de programmation. 


Donc voici la nouvelle version de notre programme en ASSEMBLEUR, 


loop 


delai 


ORS 50000 

LD A,O sINITIALISATION DE 
LD (23612),À L'ECRAN 

LD À,"* 

RST 16 SPRINT "#" 

CALL delai 

LD A,8 

RST 16 SPRINT CHR§(8) 

LD A,32 

RST 16 PRINT * " 

CALL 8201 sROUTINE ROM DE BREAK 
RET NC +C=0 SI BREAK EST FAIT 
JR loop 360 TO loop 

LD B,100 sROUTINE DE DELAI 
PUSH BC 

LD B,100 

DINZ di 

POP BC 

DINZ d0 

RET 


Pour mettre en pratique le tout voici un petit programme de 
démonstration qui nous permet de déplacer notre étoile avec 
l'aide du JOYSTICK #1. 


La liste ASSEMBLEUR est la pour vous permettre d'étudier le tout. 
Si vous n'avez pas d'ASSEMBLEUR sous la main, un programme BASIC 
chargera les codes en mémoire pour vous. Pour partir le programme 
faites RANDOMIZE USR 50000. 


LES PRINCIPALES ROUTINES 


LIGNE 
400-800 
1000-5800 


6400-7900 
8200-15700 
16300-16390 


ROUTINE 

Initialise l'écran 

Boucle principale. Lecture du JOYSTICK et va 
à la routine de déplacement appropriée, 

Test de la touche BREAK, 

Routine de lecture du JOYSTICK. (Voir SIN#2) 
Routine de déplacement vers le haut. 

Routine de déplacement vers le bas. 


t> 


16600-16609 
16900-16909 
18100-19900 
20000-20075 
20090-20170 


LES VARIABLES 


17500 POSX 
17800 POSY 


Routine de déplacement vers la gauche. 
Routine de déplacement vers la droite. 
Routine de délai. 

Impression d'un espace. 

Impression de l’étoile. 


Position du curseur (ligne) 
Position du curseur (colonne) 


am 


Bienvenue au Club des Utilisateurs 


Voulez-vous. .s.ssssssssssssssvesse 


* Echanger vos Frogrammes. 

* Correspondre avec d'autres Utilisateurs. 

# Réaliser des Applications originales. 

* Echanger des idées. 

* Evaluer des Programmes. 

* Avoir une remise de 15% sur Hardware et Software. 


* Et bien d'autres Avantages.....-.2..20- 


Pour Information : 


LE CLUE DES wWTItt SATEURS OGL. 


390 Boul. Central N. Québec, GIP 3P9 
Tél: (418) 527-6103 


QL - 


Simon Rioux récidive avec un autre programme qui exploite les 
possibilités de la aystérieuse commande SOUND du 2068. Tapez le 


U-filS E | 


programme et sauvez-le sur cassette, puis faites RUN. 


Si le coeur vous en dit, 


l'adresse suivante: 


vous pouvez communiquer avec Siaon à 


SIMON RIOUX 
46 Mayburry 
Hull, Québec 
JOA 1V5 


MISE AU POINT 


Je tient à préciser que SIN est TOTALEMENT INDEPENDANT de tout 
commerce ou club. Toute mention d'un produit, commerce ou club 
est publiée dans le seul but de renseigner le lecteur sur les 
produits ou les activités existants pour lui permettre de 
profiter pleinement de son micro-ordinateur. Le lecteur ne doit 
associer en aucune facon SIN et le commerce/produit à moins 
d'avis contraire. 


Réal Gagnon 


14 


Coane on le sait, le QL possède 2 sorties séries, SERI et SER2. 
SERI est configurée en DCE et utilisée habituellement pour 
l'iaprimante. SER2 est quant à elle configurée en OTE, ce qui la 
rend idéale pour la connection avec un MODEM. Cependant la 
théorie est souvent différente de la réalité. SER2 est très 
capricieuse durant une communication et demande des "TIMINGS" 
précis pour éviter des pertes de données. Sur certains MODEMS, 
les données sont emmagasinges dans une ménoire-tanpon avant 
d'être acheminées vers le port série, ceci a pour effet de donner 
une chance à SER2 et de capter toutes les données fournies par le 
MODEM. Cependant cette caractéristique n'est présente que dans 
les MODENS assez dispendieux. Les MODEMS les moins chères demande 
l'ajout d'un merveilleuse petite boite fabriquée par MIRACLE 
SYSTEMS. Il se nomme le MODAPTOR, Ce qu'il y de bien avec le 
MODAPTOR c'est qu'il vient avec un logiciel de communication, 
TERMINAL de QCODE. 


Le terminal peut fonctionner en 2 modes : VIEWDATA ou VTS2 
Enulation. Le premier est surtout utile en Europe car il sert à 
accéder au base de données britannique du genre PRESTEL ou 
MICRONET, Un échantillon de ce qui disponible avec ces BBS est 
fournie sur le nicrodrive et je vous jure qu'il n'y à rien de 
telle içi en Amérique du Nord, donc si les comptes de téléphone 
élevés ne vous énerve pas... L'autre option, V132, sera plus 
utlisée ici. Elle vous permet d'accéder aux BBS de la région de 
Québec, du Canada, des Etats-Unis, etc... 


Pour plus d'informations: 


GAGNON ELECTRONIQUE, 390 BL. CENTRAL, DUBERGER, QUEBEC, GIP 3P9 


Si vous avez de la difficulté à trouver du papier pour votre 
imprimante TS2040, vous pouvez toujours prendre le papier que 
RADIO SHACK offre pour son imprimante TANDY TP-10, I] fonctionne 
mieux que celui de TIMEX car il imprime NOIR sur un papier BLANC 
et non sur un papier 6RIS. 

Simon Rioux 


à r P j = x i 
D : Enregistrement numerique | 


Voici un programme qui permet au 2068 d'enregistrer de la voix ou 
de la musique. Pour ce faire, tapez le petit programme BASIC qui 
va vous servir à POKEr les codes en aénoire. Entrez les codes de 
la première et de la deuxième routine . Faites NEW et tapez: 


10 CLEAR 32767: RANDOMIZE USR 65290 


Faites jouer un enregistrement de votre voix ou bien un morceau 


de ausique sur votre magnétophone. Le 2068 utilisera toute la 
ménoire disponible pour enregistrer "numériquement" le son. 
Lorsque tout est terminé, faites RANDOMIZE USR 65318 pour 
entendre l'enregistrement, 


Simon Rioux 


fa 


PEII CSI CT CA CAT CN 


= 
5 
Ā 
5 
5 
= 
& 


12 


Le kite 


(OL: We 


Voici un utilitaire qui peut vous facilitez la tâche pour 
déterminer les bons paramètres de la commande WINDOW. Cette 
commande demande cing paramètres, elle se présente sous la forme 
de WINDOW largeur,hauteur,x_position, y position , Donc si nous 
avons WINDOW 100,50,0,0 cela signifie un WINDOW de 100 pixels de 
large, de 50 pixels de haut et son coin supérieur droit se situe 
à la coordonnée (0,0). : 


initian y HHS 


On le déplace avec les touches curseur. $i on appuie la touche 
CTRL avec une des touches curseur, un déplacement rapide 
s'effectue. On aodifie les dimensions du WINDOW avec la touche 
ALT et les touches curseur, 


le #deaz ÜRE 
SAREE R FS 

des aarding teurs 
SIALL ALF 


Le programme fournie au bas de l'écran les coordonnées du WINDOW. | 
| 
| 
| 
| 
| 
| 
j 
i] 
| 
} 
| 


100 RENark definition de window gag-086 


110 intro 

120 OPENY4, ser _160x12a150x200: INK#4, O: PAPERYA, 4:CLS#4 
130 LET largeur=100:hauteur=100: xpos=100: ypos=80 

140 dessine_fenetre 

150 REPeat loop 

160 lecture 

170 IF NOT aucune _touche:efface fenetre: decision: dessine fenetre 
180 END REPeat loop 

190 : 

200 DEFine PROCedure lecture 

210 a=CODE (INKEY§(~1)) 


220 aucune touche=0 
230 END DEFine 
240 : 


250 DEFine PROCedure decision 
260 SELect ON a 

270  =192:xpos=xpos-(xpos)0) 

280 5200: xpos=xpos+ (xpos+largeur(508) 

290 =208: ypos=ypos-(ypos)0) 

300 =216: ypos=ypos+(yposthauteur<254) 

310 +209: largeur=largeur+(xpos+largeur(508) 
320 #217: largeur=largeur-(largeur)1) 

330 =201shauteur=hauteur+(yposthauteur(254) 
340 =193:hauteur=hauteur-(hauteur)1) 

350 #202: xpos=xpos+(10# (xpos+largeur+10¢508)) 
360 =194: xpos=xpos~(10#(xpos){1)) 

370 =210: ypos=ypos-(10#(ypos>0)) 

380 =218: ypos=ypost (10# (yposthauteur+10<254)) 
390 =REMAINDER ‘aucune _touchezf 

400 END SELect 

410 BEEP 1,1000 

420 END DEFine 

430 : 

440 DEFine PROCedure dessine _fenetre 

450 BLOCK hauteur, largeur, xpos, ypos, 87 

460 BORDER#4, 1, 2 , 

470 PRINT#4,' WINDOW shauteurs’,";largeurs",!;xposs",!syposy! ! 
480 END DEFine 

490 : 

500 DEFine PROCedure efface fenetre 

510 BLOCK hauteur, largeur, xpos, ypos, 0 

520 END DEFine 

530 : 


| 


15 


540 DEFine PROCedure intro 

550 MODE 512 

560 YINDOW 512,256,0,0 

570 PAPER i:BORDER 1,4 

380 CLS 

590 WINDOW 244, 100, 129, 40 

600 PAPER 4: INK O:BORDER 2,7:CL$ 

610 (SIZE 1,1 

620 PRINT ! DEFINITION de WINDOW! 

630 PRINT ! gag-086! 

640 CSIZE 0,0: INK 7 

650 PRINT ' TOUCHES CURSEUR -> Deplace le WINDOW’ 
660 PRINT ! CTRL + CURSEUR -> Deplace +10? 

670 PRINT ? ALT + CURSEUR -) Dimension du WINDOW 
680 PRINT 

690 PRINT ' appuyer une touche pour debuter!:PAUSE 
700 FOR i=0 TO 100:SCROLL 1:BEEP .5, 1000 


710 WINDOW 512,256,0,0:PAPER 1:BORDER 1,4:SCALE 256,0, 0:ÛLS 


720 END DEFine 


f À Gi Li E À à | 
PROSPERO SOFTWARE offre au QL deux langages de programmation, Il 
s'agit de PRO PASCAL et de PRO FORTRAN 77, L'avantage de ces 
langages, sur le BASIC par exemple, est qu'ils sont conpilés donc 
beaucoup plus rapides lors de l'éxecution. Le PASCAL est une 
version du standard appellée ISO 7185/ANSI 77043.97, tandis que 
le FORTRAN répond à la norme appellée ANSI FORTRAN-77. Ils sont 
disponibles tous les deux au prix de ‘86.71 plus ‘5.00 pour les 
frais de livraison, 


PROSPERO SOFTWARE, 190 CASTELNAU, LONDON S¥13 9DH, ENGLAND 


KNIGHTED COMPUTER'S transforme les logiciels du SPECTRUM pour 
qu'ils puissent fonctionner sur le 2068. L'avantage de ces 
traductions se retrouve dans les jeux qui utilisent, après la 
transformation, le port JOYSTICK du 2068. 


Voici une liste des jeux déja traduits: TRASHMAN 
TRAVEL WITH TRASHMAN 
FIGHTER PILOT 
NIGHT GUNNER 
TURBO ESPRIT 


SABOTEUR 
COMPLETE M.C. TUTOR 
ZIP BASIC COMPILER 


KNIGHTED COMPUTERS, 707 HIGHLAND STREET, FULTON, NY 13069 USA 


Peut-être avez vous déjà vu sur d'autres ordinateurs le programme 
PRINTSHOP, Ce programme sert à créer des posters, des banières, 
des cartes de voeux. Le mème type de programme existe gaintenant 
pouur le 2068. Le premier programme s'appelle GREETING CARD 
DESIGNER. Il sert, comme son noa l'indique, à imprimer des cartes 
de voeux. BANNER DESIGNER sert à produire des baniéres, et POSTER 
DESIGNER est pour évidemment les posters. Ces progrannes sont 
produits par ZEBRA SYSTEMS. 


ZEBRA SYSTEMS Inc. 78-06 Jamaica Avenue, Woodhaven NY 11421 USA 


Les versions 2.35 des logiciels PSION du QL sont arrivés à 
Québec, Pour les obtenir informez-vous chez SAGNON ELECTRONIQUE à 
DUBERGER. 


ABONNEMENT SIN 


ae, Wee | COR o 4 Tae A we yee gees 
Et CLIM ENT i LE Puer? 


i aa 8, ft 


LISTE DES ANCIENS NUNEROS 


NUMERO : 6 DATE : janvier 1986 NBRE de PAGES : 19 PRIX : $2.00 
ARTICLE : Sinclair-News, Hardware-News, Les Trucs & Astuces du 2068 
PROGRAMME : Solitaire ($P/2068), Caractères Alternatifs (SP/2068) 

QL : Rencontre avec le coeur du QL, le 4C68008 

QL Caractères francais avec QUILL, le traitement de texte 
TECHNIQUE : Des fonctions utiles avec DEF FN 

TECHNIQUE : Le décodage du clavier du 2068 

ARTICLE : Initiation au langage machine, Entre 2 octets... 


NUMERO : 7 DATE : février 1986 NBRE de PAGES : 19 PRIX : $2.00 
Article : Sinclair-News, Entre 2 octets... 
SPECIAL : Sprite Basic pour le Spectrum 


AL : Périphériques et logiciels pour le QL 

Logiciel +: Monopoly, Scrabble, The way of the exploding fist 

1x81 : Des trucs pour charger les programmes avec succes 

NUMERO : @ DATE : mars 1986 NBRE de PAGES : 19 PRIX : $2.00 


ARTICLE + Sinclair-News, Entre 2 octets..., Trucs pour le 2068 


PROGRAMME : 10 polices de caractères en mene temps pour le 2068 ! 
PROGRAMME : Calcul de la facture d'électricité (SP/2068) 
QL : Les commandes non-docunentées du QL 


LOGICIEL : Highway Encounter (SP), Voice Chess (2068), Chess (2068) 


TECHNIQUE : Programmation en langage machine 
TECHNIQUE : Les signaux et les connecteurs du 2068/7X81/Spectrua 


NUMERO : 9 DATE : avril-mai 1986 NBRE de PAGES : 19 PRIX : $2.00 
ARTICLE + Sinclair News, Entre deux octets... 

PROGRAMME : Scrolls d'ecrans (2068), Effets speciaux (QL) 

QL : Encore les commandes non-documentees du QL 

PROJET + Conversion du 2068 en 1X SPECTRUM 

PROGRAMME : Composeur telephonique (2068) 

TECHNIQUE : Les connecteurs du QL 

ARTICLE : Neuf logiciels pour le SINCLAIR QL 

ARTICLE : Les Trucs et astuces (2068/QL) 


NUMERO : 1 
ARTICLE 
PROGRAMME 
QL 
PROGRAMME 


PROGRAMME : 


TECHNIQUE 
QL 


O DATE : juin-juil 1986 NBRE de PAGES : 20 PRIX : 2,00 

: Sinclair News , Hardware News , Software News , Entre 2 octets... 

: Nicro-Musique , avec la commande SOUND, Johnny B. Goode,Air Anglais 
: La norae RS-232c 

: Caractères soulignés via le BASIC du 2068 (2068/SP) 

Création de ligne zéro (2068/5P) 

Animation en BASIC (2068/SP) 

Les POKEs utiles... 


NUMERO : 11 DATE : AQUT-SEPT 86 NBRE de PAGES : 20 PRIX : 2.00 


ARTICLE 
PROGRAMME 
PROGRAMME 
PROGRAMME 
ql 
LOGICIEL 


OFFRE 


Sinclair News , Entre deux octets... 
Headerlist (2068) 

Solitaire (QL) 

Calcul d'interet (2068) 

Les Microdrives , 
MEGABASIC et BETA BASIC (SPECTRUM) 
TASPRINT et KNIGHT FIGHT (QL) 

NUTRITEST , logiciel gratuit pour le 2068 


GL: PROGRAMMES DIVERS Tasse 


Voici trois programmes qui peuvent être utile.Le 
premier programme il suffit d'entrer un texte et l'ordinateur 
vous dira combien il y a de aots dans ce texte.Le deuxième 
programme entrer un eot et l'ordinateur vous dira si ce aot 
est un palindrome. Et le dernier programme est une conversion 
de degré Fahrenheite à Celcius. 


Yves Gagnon, 


100 REMark COMPTE LES MOTS DANS UN TEXTE 

110 : 

120 CES: COMPTE=0s INPUT 'ENTREZ VOTRE TEXTE: ls A$ 

130 FOR TEXTE=1 TO LEN(AS) 

140 IF AS(TEXTE TO TEXTE) <> * " THEN 60 TO 160 

150 LET COMPTE=COMPTE+! 

160 END FOR TEXTE 

170 PRINT \\'IL Y A 'SCOMPTE+L;! MOTS DANS LE TEXTE? 


100 REMark CE PROGRAMME RECONNAIT UN MOT PALINDROME 

110 : 

120 CLS:B$="": INPUT "ENTREZ VOTRE MOT: '3A$ 

130 FOR MOT=LEN(A$) TO 1 STEP -1 

140 LET B$=B$A$ (MOT TO MOT) 

150 END FOR MOT 

160 IF A$=8$ THEN PRINT\\ "CE MOT EST UN PALINDROME":STOP 
170 PRINT\\ "CE MOT N'EST PAS UN PALINDROME" 


106 REMark CONVERSION TEMPERATURE 

110: 

120 CLS:CELCIUS=0: INPUT'ENTREZ DEGRE FAHRENHEIT: 3 TEMPERATURE 
130 CELSIUS=5#(TEMPERATURE-32) /9 

140 PRINT\\'DEGRE CELCIUS= 'sCELSIUS